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' 
| Version: *v04-000' 
PITTIIIILILLLILI LILI LLL LLL LLL LiL Lili iiTitiiiTiiiiiiitiiiii 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
* 
* 
® 
4 ¥ 
i THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY. OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
® 
* 
Lf 
® 
® 
* 
® 
® 
® 


ie phe phe IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
He SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 
He CORPORATION. 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITHOUT NOTICE 
TAL EQUIPMENT 
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1+ 
' FACILITY : 
EDITPC Pattern Operator Encodings 


ABSTRACT : 

The EDITPC instruction, Edit Packed to Character String, performs the 
editing according to She” pattern string which consists of one gyte 
pattern operators. Some pattern operators take no operands. Som 

take a repeat count which is contained in the rightmost nibble of the 
pattern operator itself. The rest take a one byte operand which 
follows the pattern operator immediately. This operand is either an 
unsigned integer length or byte character. Edit patterns must end 
with the EOSEND pattern operator. 


The EODEF macros permit easy construction of the edit pattern. 


ENVIRONMENT: 
AUTHOR : 
R. P. Grosso, Creation Date 9-0ct-1980 
MODIFIED BY: 
v02-001 RPGO001 Bob Grosso 3-Aug-1981 
Parenthesize use of formals ane use signed Pe lational 
expressions. 


! EOSEND edit pattern operator encoding 


eef 
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MACRO 
EOSEND = BYTE(ZX'00") %; 


! EOSEND_FLOAT edit pattern operator encoding 
EOSEND_FLOAT = BYTE(ZX'01") &%; 


! EOSCLEAR_SIGNIF edit pattern operator encoding 
EOSCLEAR_SIGNIF = BYTE(ZX'02") &%; 


es ll ated edit pattern operator encoding 
EOSSET_SIGNIF = BYTE(%X'03") 2%; 


kone FORE SIGH edit pattern operator encoding 
EOSSTORE_SIGN = BYTE(ZX'04") 2%; 


! EOSLOAD FILL edit potters operator encoding 
aamnere CA is the fill character 


EOSLOAD_FILL(CH) = BYTE(2X'°40",CH) %; 


! EOSLOAD SIGN edit pattern operator encoding 
! Where CA is loaded into the sign register 


EOSLOAD_SIGN(CH) = BYTE(%X'41',CH) %; 


! EOSLOAD PLUS edit pattern operator encoding 
! where CA is loaded into the sign register 


EOSLOAD_PLUS(CH) = BYTE(%X'42",CH) 2; 


! EOSLOAD MINUS edit pattern operator encoding 
! where CA is loaded into the sign register 


EOSLOAD_MINUS(CH) = BYTE(2X'43",CH) 2; 
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' EOSINSERT edit pattern operator encoding 
! Where CH is the character inserted 


EOSINSERT(CH) = BYTE(ZX'44",CH) 2%; 


' EOSBLANK_ZERO edit pattern operator encoding 

‘Fix up the destination to be blank when the value is zero 
‘Where the fill character is stored in the Last LEN bytes 
‘when the source string is zero. 

ae EQL O then unpredictable 


‘I 
MAC 
EOSBLANK ZERO(LEN) = 
ZIF (LEN LEQ 
ZTHEN ZWARN('EOSBLANK_ZERO = Length must be greater than zero') 


BYTE(ZX°45", LEN) %; 


EOSREPLACE_SIGN edit pattern operator encoding 
Fix up the destination sign when the value is -0 
Where contents of fill register are stored 

in last LEN bytes of destination. 

ee EQL 0 then unpredictable 


emits SIGN(LEN) = 
ZTHEN ZWARN("EOSREPLACE_SIGN - Length must be greater than zero') 


F 
BYTE(2X"46", LEN) 2; 


Beavececace 
Pd 


! EOSADJUST_INPUT edit pattern operator encoding 
! Handle source strings with lenths different from the output 
aS EQL 0 or LEN GTR 31 then unpredictable 


Ttagtt ete ee = 
Brice ZWARN("EOSADJUST_INPUT = Length must be greater than zero') 


ZIF (LEN) GTR 31 
anew ZWARN(*EOSADJUST_INPUT = Length must be less than 32°) 


RFI 
BYTE(2X°47", LEN) 2%; 


! EOSFILL edit pattern operator encoding 
! Insert the fill character. 
! where R is the repeat count. 


= 
<= 
— 


Bee Be Oe Be Oe Be Se Oe Oe Oe Oe Be Be Oe Bee Oe Se Be Se Se SH He Be BH Se Se He Se Se SH Se Se Se Se Se Se Se Se Se SHS Se Se SH Se Se Se Se Se SH Se Se we 


EODEFB.B32;1 16-SEP-1984 17:00:48.8% Page 4 


EOSFILL(R) = 
ZIF (R) LEQ 0 
gree ZWARN('EOSFILL = Repeat must be greater than zero‘) 


SIF (CR) GTR 15 
oe ZWARN('EOSFILL = Repeat must be less than 1/6") 


' R must fit in a nibble. | 
MACRO 


“FI 
BYTE(ZxX"80" + R) &; 


EOSMOVE edit pattern operator encoding 
Move digits. 

where R is the repeat count. 

caeat fit in a nibble. 


EOSMOVE(R) = 
ZIF (R) LEQ 0 
ares XWARN('EOSMOVE - Repeat must be greater than zero’) 


ZIF (R) GTR 15 
ee ZWARN("EOSMOVE = Repeat must be less than 16°» 


a 
Tp 


2F I 
BYTE(ZX°90" + R) %; 


: EOSFLOAT edit pattern operator tet aes 

! Move digits, floating the sign across insignificant digits. 
! where R is the repeat count. 

! R must fit in a nibble. 

MACRO 


EOSFLOAT(R) = 

ZIF (R) LEQ O 

Lay XWARN("EOSFLOAT - Repeat must be greater than zero') 
ZIF (R) GTR 15 
en ZWARN("EOSFLOAT - Repeat must be less than 16') 


ZF I 
BYTE(ZX'AO’ + R) 2; 


End EDITPC edit pattern operator encodings 
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